home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q1169.dms / q1169.adf / SoundTest / SoundTest.bas < prev    next >
BASIC Source File  |  1997-04-10  |  825b  |  47 lines
  1. REM $NOWINDOW
  2.  
  3. DEFINT a-z
  4.  
  5. REM $INCLUDE Exec.bh
  6. REM $INCLUDE Intuition.bh
  7. LIBRARY OPEN "exec.library"
  8. LIBRARY OPEN "intuition.library"
  9.  
  10. mempoint&=allocmem&(100,MEMF_ANY)
  11. st$="Sound Channel Test "+CHR$(169)+" T.Collier 1995."+CHR$(0)
  12. a&=SADD(st$)
  13. l&=LEN(st$)
  14. copymem a&,mempoint&,l&
  15.  
  16. scrw=PEEKW(SYSTAB):scrh=PEEKW(SYSTAB+2)
  17. WINDOW 1,"Sound Test",(scrw-625,10)-(625,180),20+256,-1
  18. SetWindowTitles WINDOW(7),-1,mempoint&
  19.  
  20. PRINT:PRINT
  21. ch=0
  22. PRINT "Testing Channel ";ch;"    Left  Speaker  ";
  23. chan ch
  24. PRINT "Testing Channel ";ch;"    Right Speaker  ";
  25. chan ch
  26. PRINT "Testing Channel ";ch;"    Right Speaker  ";
  27. chan ch
  28. PRINT "Testing Channel ";ch;"    Left  Speaker  ";
  29. chan ch
  30. STOP -1
  31.     SUB chan(ch)
  32.         SOUND 440,15.9!,255,ch
  33.         PRINT
  34.         PRINT
  35.         INCR ch
  36.         halt
  37.     END SUB
  38.     
  39.     SUB halt
  40.         t!=TIMER
  41.         WHILE TIMER<t!+2
  42.         WEND
  43.     END SUB
  44.  
  45.      
  46.     
  47.